COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VMAP"
C00006 ENDMK
C⊗;
BEGIN "VMAP"

INTEGER CHN,EOF,I;
DEFINE N=63;
DEFINE MASK='377, OBPS=8,IBPS=6;

INTEGER ARRAY TABL[0:N];

REAL GAMMA;

DEFINE MAPADR='771000;

PROCEDURE MAPSET(INTEGER ARRAY TABL);
   BEGIN
   INTEGER WD;
   WD←1 LSH 35 + 1 LSH 17 + MAPADR LSH -1;
   USETO(CHN,LOCATION(WD));
   USETI(CHN,LOCATION(WD));
   ARRYOUT(CHN,TABL[0],N+1);
   END;


OPEN(CHN←GETCHAN,"ELF",'17,0,0,0,0,EOF);

FOR I←0 STEP 1 UNTIL (N+1)%2-1 DO TABL[I]←(2*I) LSH (OBPS-IBPS);
FOR I←(N+1)%2 STEP 1 UNTIL 7*(N+1)%8-1 DO TABL[I]←N LSH (OBPS-IBPS);
FOR I←7*(N+1)%8 STEP 1 UNTIL N DO TABL[I]←0 LSH (OBPS-IBPS);

MAPSET(TABL);

RELEASE(CHN);

END;